From 23ba3a2800595019590ba914c4dcd52f2ca23426 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 9 Feb 2001 15:11:47 +0000 Subject: [PATCH] (authors): Expand `root' before running find. --- lisp/emacs-lisp/authors.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/authors.el b/lisp/emacs-lisp/authors.el index e818ca88d6c..909f741f88c 100644 --- a/lisp/emacs-lisp/authors.el +++ b/lisp/emacs-lisp/authors.el @@ -428,10 +428,10 @@ ROOT is the root directory under which to find the files. If called interactively, ROOT is read from the minibuffer. Result is a buffer *Authors* containing authorship information." (interactive "DEmacs source directory: ") + (setq root (expand-file-name root)) (let ((logs (authors-process-lines "find" root "-name" "ChangeLog*")) (table (make-hash-table :test 'equal)) (buffer-name "*Authors*")) - (setq root (expand-file-name root)) (authors-add-fixed-entries table) (unless (file-exists-p (expand-file-name "src/emacs.c" root)) (error "Not the root directory of Emacs: %s" root)) -- 2.30.2